home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00586_draw scripts.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  1.5 KB  |  69 lines
  1. on drawFlags showNow, test, timer, delay
  2.   global gInSetup
  3.   if showNow or gInSetup then
  4.     setFlagsPuppet(305 + test + (delay * 2) + (timer * 4))
  5.   else
  6.     setFlagsPuppet(305)
  7.   end if
  8.   updateStage()
  9. end
  10.  
  11. on drawToggle inDictation, test, isBrowseMode, isFromMenu
  12.   if inDictation then
  13.     set castStr to "Dict Icon"
  14.   else
  15.     if isBrowseMode then
  16.       if isFromMenu then
  17.         set castStr to "Browse Only Icon"
  18.       else
  19.         set castStr to "BROWSE-run Icon"
  20.       end if
  21.     else
  22.       if test then
  23.         set castStr to "Run Only Icon"
  24.       else
  25.         set castStr to "RUN-browse Icon"
  26.       end if
  27.     end if
  28.   end if
  29.   setTogglePuppet(castStr)
  30. end
  31.  
  32. on drawScore
  33.   global gScore
  34.   showScorePuppet(gScore)
  35.   updateStage()
  36. end
  37.  
  38. on showControl
  39.   global gTimer, gOldTimer, gInPlay, gMenu
  40.   exitCycle()
  41.   set gInPlay to 0
  42.   if gMenu then
  43.     set the enabled of menuItem 2 of menu "Special" to 0
  44.   end if
  45.   if gOldTimer = 0 then
  46.     set gOldTimer to gTimer
  47.   end if
  48.   set gTimer to 0
  49.   showjumpcontrol()
  50.   if inChallenge() then
  51.     set x to value(the text of cast "ModeType") - 1
  52.     setOverlayPuppet(194 + (x mod 3 * 39), 115 + (x / 3 * 36), 207)
  53.   else
  54.     if the text of cast "BrowseType" = "A" then
  55.       setOverlayPuppet(194, 270, 207)
  56.     else
  57.       if the text of cast "BrowseType" = "B" then
  58.         setOverlayPuppet(233, 270, 207)
  59.       else
  60.         if the text of cast "BrowseType" = "C" then
  61.           setOverlayPuppet(272, 270, 207)
  62.         end if
  63.       end if
  64.     end if
  65.   end if
  66.   when mouseDown then controlClick
  67.   updateStage()
  68. end
  69.